home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_093 / microemacs / doc / cmacros < prev    next >
Text File  |  1992-05-06  |  3KB  |  97 lines
  1. ;   Cmacros!
  2. ;
  3. ;   Here are a couple handy macros for MircoEMACS 38i. You can add these to 
  4. ;   your startup file ".emacsrc" or simply "execute-file" this macro file. It
  5. ;   attaches two macro programs to F9 and F10. Pressing F9 causes the source
  6. ;   in the current buffer to be compiled. ( based on buffer file name )
  7. ;   On errors a jump is made to the source line(s) with the error message(s)
  8. ;   shown as the top line of the screen. 
  9. ;   The output of the compile is sent to a error file "error.dat"...If there
  10. ;   are any errors after the compile you will be automatically positioned at the
  11. ;   error line with the corresponding error message displayed at the top of the
  12. ;   screen. Pressing F10 causes you to proceed to the next error.
  13. ;
  14. ; Compile and error check
  15. ;
  16. ; This macro will compile the source file in the current buffer. Then it
  17. ;   will call the error handling macro which looks for a magic file
  18. ;   named "error.dat"...The error handling macro takes it from there...
  19. ;   
  20. ;   This macro is bound to the F9 function key.
  21. ;
  22. bind-to-key execute-macro-9 FN8
  23. 9   store-macro
  24.     delete-other-windows
  25.     delete-buffer "error.dat"
  26.     set %command "CC "
  27.     set %command &cat %command ">error.dat "
  28.     set %command &cat %command $cfname
  29.     shell-command %command
  30.     execute-macro-8
  31. !endm
  32. ; 
  33. ; Error handling macro.
  34. ;
  35. ;   This macro is smart in knowing the format of Aztec C's error messages.
  36. ; It will automagically look for a file named "error.dat" in the current
  37. ; directory. If found it will find the first error message and the file
  38. ; it belongs to. It then reads the file in and jumps to the first known
  39. ; error line. All this macro needs is a file in the current directory
  40. ; named "error.dat" to function. ( assuming "error.dat" is the redirected
  41. ; output from the Aztec C compiler. ) This macro can be called repeatly to
  42. ; process every error line in "error.dat"
  43. ;   
  44. ;               This macro is bound to the F10 function key.
  45. ;
  46. bind-to-key execute-macro-8 FN9
  47. 8   store-macro
  48.     delete-other-windows
  49.     split-current-window
  50.     1 next-window
  51.     9 shrink-window
  52.     !force find-file "error.dat"
  53.     !if &sequal $status "FALSE"
  54.         write-message "Error file not found."
  55.         !return
  56.     !endif
  57.     beginning-of-line
  58.     next-line
  59.     !force search-forward ":"
  60.     !if &sequal $status "FALSE"
  61.         write-message "No more errors found."
  62.         next-window
  63.         delete-other-windows
  64.         !return
  65.     !endif                
  66.     beginning-of-line
  67.     set %file &chr $curchar
  68. *fileget
  69.     forward-character
  70.     !if &equal $curchar 58
  71.         !goto filehave
  72.     !endif
  73.     set %file &cat %file &chr $curchar
  74.     !goto fileget
  75. *filehave   
  76.     search-forward ":"
  77.     set %line &chr $curchar
  78. *lineget
  79.     forward-character
  80.     !if &equal $curchar 58
  81.         !goto linegot
  82.     !endif
  83.     set %line &cat %line &chr $curchar
  84.     !goto lineget
  85. *linegot
  86.     next-window
  87.     !force find-file %file
  88.     !if &sequal $status "FALSE"
  89.         write-message "Source file not found."
  90.         !return
  91.     !endif
  92.     goto-line %line
  93. !endm
  94. ; 
  95. ; EOF
  96. ;
  97.